Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/arrays/arrtest1.dfm/arrtest1.txt

Text File | 1995-12-22 | 5.7 KB | 268 lines

object MainForm: TMainForm
  Left = 456
  Top = 168
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Test of Resizeable Arrays'
  ClientHeight = 388
  ClientWidth = 527
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 120
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 20
  object ArrayProperties: TGroupBox
    Left = 200
    Top = 9
    Width = 313
    Height = 97
    Caption = 'Array Properties'
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 92
      Height = 20
      Caption = 'Array type: '
    end
    object ArrayType: TLabel
      Left = 120
      Top = 32
      Width = 84
      Height = 20
      Caption = 'ArrayType'
    end
    object ArraySize: TLabel
      Left = 120
      Top = 56
      Width = 78
      Height = 20
      Caption = 'ArraySize'
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 88
      Height = 20
      Caption = 'Array size :'
    end
  end
  object ArrayGroupbox: TGroupBox
    Left = 8
    Top = 8
    Width = 185
    Height = 369
    Caption = '&Array Items'
    TabOrder = 0
  end
  object ArrayItems: TListBox
    Left = 24
    Top = 32
    Width = 153
    Height = 329
    ExtendedSelect = False
    ItemHeight = 20
    TabOrder = 1
    OnClick = ArrayItemsClick
  end
  object EditItems: TGroupBox
    Left = 200
    Top = 120
    Width = 313
    Height = 201
    Caption = '&Edit Array Items'
    TabOrder = 3
    object Label3: TLabel
      Left = 16
      Top = 36
      Width = 45
      Height = 20
      Caption = '&Value'
      FocusControl = EdtItem
    end
    object Label4: TLabel
      Left = 16
      Top = 76
      Width = 47
      Height = 20
      Caption = 'Inde&x:'
      FocusControl = EdtIndex
    end
    object EdtItem: TEdit
      Tag = 100
      Left = 88
      Top = 32
      Width = 209
      Height = 29
      MaxLength = 20
      TabOrder = 0
    end
    object BtnSet: TButton
      Left = 16
      Top = 112
      Width = 129
      Height = 33
      Caption = '&Set'
      Default = True
      TabOrder = 2
      OnClick = BtnSetClick
    end
    object BtnGet: TButton
      Left = 168
      Top = 112
      Width = 129
      Height = 33
      Caption = '&Get'
      TabOrder = 3
      OnClick = BtnGetClick
    end
    object EdtIndex: TEdit
      Left = 88
      Top = 72
      Width = 209
      Height = 29
      TabOrder = 1
    end
    object BtnInsert: TButton
      Left = 16
      Top = 152
      Width = 129
      Height = 33
      Caption = '&Insert'
      TabOrder = 4
      OnClick = BtnInsertClick
    end
    object BtnDelete: TButton
      Left = 168
      Top = 152
      Width = 129
      Height = 33
      Caption = '&Delete'
      TabOrder = 5
      OnClick = BtnDeleteClick
    end
  end
  object BtnClose: TButton
    Left = 368
    Top = 336
    Width = 129
    Height = 33
    Caption = 'Close'
    ModalResult = 2
    TabOrder = 5
    OnClick = MnuFileExitClick
  end
  object BtnFill: TButton
    Left = 216
    Top = 336
    Width = 129
    Height = 33
    Caption = '&Fill'
    TabOrder = 4
    OnClick = BtnFillClick
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 360
    object Datei1: TMenuItem
      Caption = '&File'
      OnClick = Datei1Click
      object MnuFileOpen: TMenuItem
        Caption = '&Open...'
        OnClick = MnuFileOpenClick
      end
      object MnuFileSaveAs: TMenuItem
        Caption = 'Save &As...'
        OnClick = MnuFileSaveAsClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MnuFileReadStream: TMenuItem
        Caption = '&Read Stream...'
        OnClick = MnuFileReadStreamClick
      end
      object MnuFileWriteStream: TMenuItem
        Caption = '&Write Stream...'
        OnClick = MnuFileWriteStreamClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MnuTextfileRead: TMenuItem
        Caption = 'R&ead Textfile...'
        Enabled = False
        OnClick = MnuTextfileReadClick
      end
      object MnuTextfileWrite: TMenuItem
        Caption = 'Write &Textfile...'
        Enabled = False
        OnClick = MnuTextfileWriteClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MnuFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = MnuFileExitClick
      end
    end
    object Arrays1: TMenuItem
      Caption = '&Arrays'
      OnClick = Arrays1Click
      object MnuUse: TMenuItem
        Caption = '&Use...'
        OnClick = MnuUseClick
      end
      object MnuArraysRedim: TMenuItem
        Caption = '&ReDim...'
        OnClick = MnuArraysRedimClick
      end
      object MnuArraysDestroy: TMenuItem
        Caption = '&Destroy'
        Enabled = False
      end
      object MnuInspect: TMenuItem
        Caption = '&Inspect...'
        OnClick = MnuInspectClick
      end
      object MnuArrayEnlarge: TMenuItem
        Caption = 'Enlarge &View...'
        OnClick = MnuArrayEnlargeClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MnuArraysSum: TMenuItem
        Caption = '&Sum'
        OnClick = MnuArraysSumClick
      end
      object MnuArraysFind: TMenuItem
        Caption = '&Find...'
        OnClick = MnuArraysFindClick
      end
      object MnuArraysSort: TMenuItem
        Caption = 'S&ort...'
        OnClick = MnuArraysSortClick
      end
      object MnuArraysClone: TMenuItem
        Caption = '&Clone'
        OnClick = MnuArraysCloneClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MnuCopyItems: TMenuItem
        Caption = 'Copy  &Items...'
        OnClick = MnuCopyItemsClick
      end
    end
  end
end